home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / theorems / Brianchon.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.4 KB  |  35 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.548913, 0.290761, .L0, "1");
  3. v2 = .free(-0.165761, 0.423913, .L0, "2");
  4. v3 = .free(0.396739, 0.100543, .L0, "3");
  5. v4 = .free(-0.013587, -0.358696, .L0, "4");
  6. v5 = .free(-0.641304, -0.122283, .L0, "5");
  7. c = .conic.vvvvv(v1, v2, v3, v4, v5);
  8. w1 = .vonconic(c, -0.626033, -0.146623, .red);
  9. w2 = .vonconic(c, -0.498301, 0.327432, .red);
  10. w3 = .vonconic(c, 0.295099, -0.214787, .red);
  11. w4 = .vonconic(c, -0.2068, -0.365063, .red);
  12. w5 = .vonconic(c, 0.0462688, 0.399866, .red);
  13. w6 = .vonconic(c, -0.372201, 0.387165, .red);
  14. l1 = .l.conicv(c, w1, 1, .invisible, .longline);
  15. l2 = .l.conicv(c, w2, 1, .invisible, .longline);
  16. l3 = .l.conicv(c, w3, 1, .invisible, .longline);
  17. l4 = .l.conicv(c, w4, 1, .invisible, .longline);
  18. l5 = .l.conicv(c, w5, 1, .invisible, .longline);
  19. l6 = .l.conicv(c, w6, 1, .invisible, .longline);
  20. v9 = .v.ll(l5, l6, .yellow, .L0, .plus);
  21. v10 = .v.ll(l6, l2, .yellow, .L0, .plus);
  22. v11 = .v.ll(l2, l1, .yellow, .L0, .plus);
  23. v12 = .v.ll(l1, l4, .yellow, .L0, .plus);
  24. v13 = .v.ll(l4, l3, .yellow, .L0, .plus);
  25. v14 = .v.ll(l3, l5, .yellow, .L0, .plus);
  26. l10 = .l.vv(v9, v12, .yellow, .L0, .longline);
  27. l11 = .l.vv(v11, v14, .yellow, .L0, .longline);
  28. l12 = .l.vv(v10, v13, .yellow, .L0, .longline);
  29. l7 = .l.vv(v13, v14, .red, .L0);
  30. l8 = .l.vv(v14, v9, .red, .L0);
  31. l9 = .l.vv(v9, v10, .red, .L0);
  32. l13 = .l.vv(v10, v11, .red, .L0);
  33. l14 = .l.vv(v11, v12, .red, .L0);
  34. l15 = .l.vv(v12, v13, .red, .L0);
  35.